Detect menu-items in which-key--get-keymap-bindings

diff --git a/which-key.el b/which-key.el
index c4900e73844dfc746f854fbee2ebeb6cbf13d2d4..765fd37bd012f338f8f9721a668ba4ec6581b9da 100644 (file)
--- a/which-key.el
+++ b/which-key.el
@@ -1673,6 +1673,7 @@ ones. PREFIX is for internal use and should not be used."
                      ((keymapp def) "Prefix Command")
                      ((symbolp def) (copy-sequence (symbol-name def)))
                      ((eq 'lambda (car-safe def)) "lambda")
+                     ((eq 'menu-item (car-safe def)) "menu-item")
                      (t (format "%s" def))))
               bindings :test (lambda (a b) (string= (car a) (car b))))))))
      keymap)